home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Present…ry 5: (Reseller Edition) / Apple Reference & Presentations Library 5.0 (Reseller Edition).iso / 5-Fonts & Software / HyperCard 1.2.5 / Help Stacks / Help / card_65097.txt < prev    next >
Encoding:
Text File  |  1987-11-25  |  1.9 KB  |  94 lines
  1. -- card: 65097 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 4507
  5. -- name: 
  6.  
  7.  
  8. -- part 2 (button)
  9. -- low flags: 00
  10. -- high flags: 8004
  11. -- rect: left=410 top=88 right=110 bottom=488
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Example 1
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   --An example of a REPEAT control structure
  23.   repeat while the shiftKey is up
  24.     put "The time is:" && the long time & ".  Press the Shift key to see the script."
  25.   end repeat
  26.   edit script of card button "example 1"   --so you can see the script
  27. end mouseUp
  28.  
  29.  
  30.  
  31. -- part 3 (button)
  32. -- low flags: 00
  33. -- high flags: 8004
  34. -- rect: left=410 top=184 right=206 bottom=486
  35. -- title width / last selected line: 0
  36. -- icon id / first selected line: 0 / 0
  37. -- text alignment: 1
  38. -- font id: 0
  39. -- text size: 12
  40. -- style flags: 0
  41. -- line height: 16
  42. -- part name: Example 2
  43. ----- HyperTalk script -----
  44. on mouseUp
  45.   --An example of a REPEAT control structure
  46.   repeat with x = 1 to 40
  47.     if (x MOD 10) > 4 then next repeat
  48.     put "Numbers ending in 0,1,2,3, or 4: " && x
  49.   end repeat
  50.   edit script of card button "example 2"   --so you can see the script
  51. end mouseUp
  52.  
  53.  
  54.  
  55. -- part contents for background part 1
  56. ----- text -----
  57. repeat while <true or false expression>
  58.     <command>
  59.     <command>
  60. end repeat
  61.  
  62. repeat with <variable> = <number> to <number>
  63.    <command>
  64.    <command>
  65. end repeat
  66. exit <message>     -- leave the current script in the 
  67.        middle.  Don't do the rest of the commands.  
  68.        (Useful with "if").  (<message> is the name of the 
  69.        current handler).
  70.  
  71.  
  72. -- part contents for background part 2
  73. ----- text -----
  74. Other control structures (cont.)
  75.  
  76. -- part contents for background part 44
  77. ----- text -----
  78. repeat while
  79.  
  80.  
  81.  
  82.  
  83. repeat with
  84.  
  85.  
  86.  
  87. exit
  88.  
  89.  
  90.  
  91.  
  92. -- part contents for background part 43
  93. ----- text -----
  94. 267,189